(rmail-read-label): Since rmail-keywords is a list

of symbols, we need to transform it into an alist for completion.

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 8c294a4b36dda610bef08b628c6c40aa0df2020a..fa59ff91d8599d28966ecd43281bcd88be21579f 100644 (file)
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -137,7 +137,8 @@ message."
                       (concat prompt (if rmail-last-label
                                          (concat " (default " default "): ")
                                        ": "))
-                      rmail-keywords nil nil nil nil default)))))
+                      (mapcar 'list rmail-keywords)
+                      nil nil nil nil default)))))
       (setq rmail-last-label (rmail-make-label result t))
       ;; return the string, not the symbol
       result)))